home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Hyperj-Hz / HyperMac™1.2.cpt / Datebook / background_16907.txt < prev    next >
Text File  |  1987-11-27  |  10KB  |  422 lines
  1. -- background: 16907 from stack: in
  2. -- bmap block id: 17929
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Six Monthly
  6. ----- HyperTalk script -----
  7. on closeCard
  8.   hide bkgnd button "Bracket"
  9. end closeCard
  10.  
  11. on mouseUp
  12.   --give a date in the week that was clicked on, (a month field)
  13.   if the name of the target contains "name" or the name of the target contains "year" then exit mouseUp
  14.   put the short name of the target & "name" into label
  15.   put (item 2 of the clickLoc) - (item 2 of the rect of the target) into myDay
  16.   put (myDay DIV textHeight of the target) +1 into myDay
  17.   put word myDay of "1 8 15 22 29 36" into myDay
  18.   put field label && myDay & "," && field "year" into myDate
  19.   convert myDate to dateItems
  20.   if item 7 of myDate = 1 then add 1 to item 3 of myDate
  21.   --if using a Sunday, move into the next week
  22.   goWeekly myDate
  23. end mouseUp
  24.  
  25. on bracketWeek myDate
  26.   --assume we are on the right card
  27.   convert myDate to dateItems
  28.   put item 2 of myDate into it
  29.   if it > 6 then subtract 6 from it
  30.   put "cal" & it into myField
  31.   put ((item 3 of myDate) + 6 - (item 7 of myDate)) DIV 7 into it
  32.   put loc of field myfield into newLoc
  33.   put item 2 of rect of field myField into item 2 of newLoc
  34.   add (it * the textHeight of field myField) + 7 to item 2 of newLoc
  35.   show bkgnd button "bracket" at newLoc
  36. end bracketWeek
  37.  
  38. on extendHalfYearly
  39.   if the number of backgrounds > 1 then
  40.     go to last card of bkgnd "weekly"
  41.     get field "month"
  42.     put word 2 of it && "1," && word 1 of it into endDate
  43.   else put the seconds + (60*60*24*31) into endDate
  44.   convert endDate to seconds
  45.   go to last card of bkgnd "six monthly"
  46.   put field cal6Name && "1," && field "year" into nowDate
  47.   convert nowDate to seconds
  48.   add 60*60*24*32 to nowDate     --start of next 6 month period
  49.   repeat until nowDate >= endDate
  50.     doMenu "New Card"
  51.     fillHalfYear nowDate
  52.     add 60*60*24*183 to nowDate
  53.   end repeat
  54.   put the number of this card into it  --last sixMonth card
  55.   if (the number of backgrounds > 1) and (it > 5) then
  56.     go to first card of bkgnd "Six Monthly"
  57.     if the number of this card = 1 then
  58.       repeat for it-5   --only allow 5 cards at the front
  59.         doMenu "delete card"
  60.       end repeat
  61.     end if
  62.   end if
  63. end extendHalfYearly
  64.  
  65. on fillHalfYear startDate
  66.   convert startDate to dateItems
  67.   if item 2 of startDate is not in "1 7" then exit fillHalfYear
  68.   put item 1 of startDate into field Year
  69.   convert startDate to seconds
  70.   repeat with ff = 1 to 6
  71.     put startDate into it
  72.     convert it to long date
  73.     put word 1 of item 2 of it into field ("cal" & ff & "name")
  74.     put " 1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 " & "18 19 20 21 22 23 24 25 26 27 28" into field ("cal" & ff)
  75.     convert it to dateItems
  76.     put 1 into item 3 of it
  77.     convert it to long date
  78.     convert it to dateItems
  79.     repeat (item 7 of it)-1
  80.       put "   " before field ("cal" & ff)
  81.     end repeat
  82.     repeat with dd = 29 to 31
  83.       put dd into item 3 of it
  84.       convert it to long date
  85.       convert it to dateItems
  86.       if item 3 of it = dd
  87.       then put space & dd after field ("cal" & ff)
  88.     else exit repeat
  89.   end repeat
  90.   put return after character 42 of field ("cal" & ff)
  91.   put return after character 21 of field ("cal" & ff)
  92.   add 60*60*24*31 to startDate
  93. end repeat
  94. end fillHalfYear
  95.  
  96. on newStack
  97.   put the seconds into myDate
  98.   convert myDate to dateitems
  99.   if item 2 of myDate > 6
  100.   then put 7 into item 2 of myDate
  101. else put 1 into item 2 of myDate
  102. fillHalfYear myDate
  103. end newStack
  104.  
  105.  
  106.  
  107. -- part 7 (field)
  108. -- low flags: 01
  109. -- high flags: 0000
  110. -- rect: left=12 top=59 right=85 bottom=103
  111. -- title width / last selected line: 0
  112. -- icon id / first selected line: 0 / 0
  113. -- text alignment: 65535
  114. -- font id: 2
  115. -- text size: 14
  116. -- style flags: 8448
  117. -- line height: 18
  118. -- part name: cal1name
  119.  
  120.  
  121. -- part 12 (field)
  122. -- low flags: 01
  123. -- high flags: 0000
  124. -- rect: left=408 top=59 right=84 bottom=501
  125. -- title width / last selected line: 0
  126. -- icon id / first selected line: 0 / 0
  127. -- text alignment: 0
  128. -- font id: 2
  129. -- text size: 14
  130. -- style flags: 8448
  131. -- line height: 18
  132. -- part name: cal4Name
  133.  
  134.  
  135. -- part 14 (field)
  136. -- low flags: 01
  137. -- high flags: 0000
  138. -- rect: left=16 top=143 right=168 bottom=103
  139. -- title width / last selected line: 0
  140. -- icon id / first selected line: 0 / 0
  141. -- text alignment: 65535
  142. -- font id: 2
  143. -- text size: 14
  144. -- style flags: 8448
  145. -- line height: 18
  146. -- part name: cal2Name
  147.  
  148.  
  149. -- part 15 (field)
  150. -- low flags: 01
  151. -- high flags: 0000
  152. -- rect: left=12 top=227 right=253 bottom=103
  153. -- title width / last selected line: 0
  154. -- icon id / first selected line: 0 / 0
  155. -- text alignment: 65535
  156. -- font id: 2
  157. -- text size: 14
  158. -- style flags: 8448
  159. -- line height: 18
  160. -- part name: cal3Name
  161.  
  162.  
  163. -- part 16 (field)
  164. -- low flags: 01
  165. -- high flags: 0000
  166. -- rect: left=408 top=143 right=169 bottom=501
  167. -- title width / last selected line: 0
  168. -- icon id / first selected line: 0 / 0
  169. -- text alignment: 0
  170. -- font id: 2
  171. -- text size: 14
  172. -- style flags: 8448
  173. -- line height: 18
  174. -- part name: cal5name
  175.  
  176.  
  177. -- part 17 (field)
  178. -- low flags: 01
  179. -- high flags: 0000
  180. -- rect: left=408 top=227 right=253 bottom=502
  181. -- title width / last selected line: 0
  182. -- icon id / first selected line: 0 / 0
  183. -- text alignment: 0
  184. -- font id: 2
  185. -- text size: 14
  186. -- style flags: 8448
  187. -- line height: 18
  188. -- part name: cal6name
  189.  
  190.  
  191. -- part 42 (button)
  192. -- low flags: 00
  193. -- high flags: 0000
  194. -- rect: left=85 top=25 right=60 bottom=124
  195. -- title width / last selected line: 0
  196. -- icon id / first selected line: 4432 / 4432
  197. -- text alignment: 1
  198. -- font id: 0
  199. -- text size: 12
  200. -- style flags: 0
  201. -- line height: 16
  202. -- part name: To Do
  203. ----- HyperTalk script -----
  204. on mouseUp
  205.   visual effect zoom open
  206.   go to first card of background "To Do"
  207. end mouseUp
  208.  
  209.  
  210.  
  211. -- part 43 (button)
  212. -- low flags: 00
  213. -- high flags: 0000
  214. -- rect: left=124 top=25 right=60 bottom=163
  215. -- title width / last selected line: 0
  216. -- icon id / first selected line: 21209 / 21209
  217. -- text alignment: 1
  218. -- font id: 0
  219. -- text size: 12
  220. -- style flags: 0
  221. -- line height: 16
  222. -- part name: Daily
  223. ----- HyperTalk script -----
  224. on mouseUp
  225.   goWeekly the seconds
  226. end mouseUp
  227.  
  228.  
  229.  
  230. -- part 57 (button)
  231. -- low flags: 80
  232. -- high flags: 2002
  233. -- rect: left=281 top=188 right=201 bottom=409
  234. -- title width / last selected line: 0
  235. -- icon id / first selected line: 0 / 0
  236. -- text alignment: 1
  237. -- font id: 0
  238. -- text size: 12
  239. -- style flags: 0
  240. -- line height: 16
  241. -- part name: Bracket
  242. ----- HyperTalk script -----
  243. on mouseUp
  244.   --should be behind all fields, but just in case
  245.   hide bkgnd button "bracket"
  246.   click at the loc of bkgnd button "bracket"
  247. end mouseUp
  248.  
  249.  
  250.  
  251. -- part 46 (button)
  252. -- low flags: 00
  253. -- high flags: 0000
  254. -- rect: left=164 top=25 right=60 bottom=203
  255. -- title width / last selected line: 0
  256. -- icon id / first selected line: 4263 / 4263
  257. -- text alignment: 1
  258. -- font id: 0
  259. -- text size: 12
  260. -- style flags: 0
  261. -- line height: 16
  262. -- part name: 
  263. ----- HyperTalk script -----
  264. on mouseUp
  265.   Answer "You are already here." with "OK"
  266. end mouseUp
  267.  
  268.  
  269.  
  270. -- part 50 (button)
  271. -- low flags: 00
  272. -- high flags: 0000
  273. -- rect: left=462 top=25 right=60 bottom=501
  274. -- title width / last selected line: 0
  275. -- icon id / first selected line: 14953 / 14953
  276. -- text alignment: 1
  277. -- font id: 0
  278. -- text size: 12
  279. -- style flags: 0
  280. -- line height: 16
  281. -- part name: Home
  282. ----- HyperTalk script -----
  283. on mouseUp
  284.   visual effect iris close
  285.   go "home"
  286. end mouseUp
  287.  
  288.  
  289.  
  290. -- part 52 (button)
  291. -- low flags: 00
  292. -- high flags: 0000
  293. -- rect: left=312 top=29 right=56 bottom=349
  294. -- title width / last selected line: 0
  295. -- icon id / first selected line: 22308 / 22308
  296. -- text alignment: 1
  297. -- font id: 0
  298. -- text size: 12
  299. -- style flags: 0
  300. -- line height: 16
  301. -- part name: Next
  302. ----- HyperTalk script -----
  303. on mouseUp
  304.   go to next card
  305. end mouseUp
  306.  
  307.  
  308. -- part 53 (button)
  309. -- low flags: 00
  310. -- high flags: 0000
  311. -- rect: left=275 top=28 right=56 bottom=312
  312. -- title width / last selected line: 0
  313. -- icon id / first selected line: 19381 / 19381
  314. -- text alignment: 1
  315. -- font id: 0
  316. -- text size: 12
  317. -- style flags: 0
  318. -- line height: 16
  319. -- part name: Prev
  320. ----- HyperTalk script -----
  321. on mouseUp
  322.   go to previous card
  323. end mouseUp
  324.  
  325.  
  326. -- part 54 (field)
  327. -- low flags: 01
  328. -- high flags: 0000
  329. -- rect: left=9 top=25 right=58 bottom=85
  330. -- title width / last selected line: 0
  331. -- icon id / first selected line: 0 / 0
  332. -- text alignment: 0
  333. -- font id: 2
  334. -- text size: 24
  335. -- style flags: 256
  336. -- line height: 32
  337. -- part name: Year
  338.  
  339.  
  340. -- part 55 (field)
  341. -- low flags: 01
  342. -- high flags: 0000
  343. -- rect: left=101 top=64 right=143 bottom=230
  344. -- title width / last selected line: 0
  345. -- icon id / first selected line: 0 / 0
  346. -- text alignment: 0
  347. -- font id: 2
  348. -- text size: 10
  349. -- style flags: 0
  350. -- line height: 13
  351. -- part name: cal1
  352.  
  353.  
  354. -- part 56 (field)
  355. -- low flags: 01
  356. -- high flags: 0000
  357. -- rect: left=101 top=148 right=227 bottom=230
  358. -- title width / last selected line: 0
  359. -- icon id / first selected line: 0 / 0
  360. -- text alignment: 0
  361. -- font id: 2
  362. -- text size: 10
  363. -- style flags: 0
  364. -- line height: 13
  365. -- part name: cal2
  366.  
  367.  
  368. -- part 58 (field)
  369. -- low flags: 01
  370. -- high flags: 0000
  371. -- rect: left=101 top=232 right=311 bottom=230
  372. -- title width / last selected line: 0
  373. -- icon id / first selected line: 0 / 0
  374. -- text alignment: 0
  375. -- font id: 2
  376. -- text size: 10
  377. -- style flags: 0
  378. -- line height: 13
  379. -- part name: cal3
  380.  
  381.  
  382. -- part 59 (field)
  383. -- low flags: 01
  384. -- high flags: 0000
  385. -- rect: left=281 top=64 right=143 bottom=410
  386. -- title width / last selected line: 0
  387. -- icon id / first selected line: 0 / 0
  388. -- text alignment: 0
  389. -- font id: 2
  390. -- text size: 10
  391. -- style flags: 0
  392. -- line height: 13
  393. -- part name: cal4
  394.  
  395.  
  396. -- part 60 (field)
  397. -- low flags: 01
  398. -- high flags: 0000
  399. -- rect: left=281 top=148 right=227 bottom=410
  400. -- title width / last selected line: 0
  401. -- icon id / first selected line: 0 / 0
  402. -- text alignment: 0
  403. -- font id: 2
  404. -- text size: 10
  405. -- style flags: 0
  406. -- line height: 13
  407. -- part name: cal5
  408.  
  409.  
  410. -- part 61 (field)
  411. -- low flags: 01
  412. -- high flags: 0000
  413. -- rect: left=281 top=232 right=311 bottom=410
  414. -- title width / last selected line: 0
  415. -- icon id / first selected line: 0 / 0
  416. -- text alignment: 0
  417. -- font id: 2
  418. -- text size: 10
  419. -- style flags: 0
  420. -- line height: 13
  421. -- part name: cal6
  422.